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REMOVE .COM 


' 
' 
i 
i This feanens ere edure uses as input a data file (specified in P1 o 

i nob yay Bh Bs eres VMSKITBLD.DAT on the system disk). The data file xe 
i read as np to be executed y the procedure. The format of each 

i record is Sefined “¥ VNSKITB D.COM. Pd specifies the cavegory of files to 

i be removed from the system disk. nie is ps" of the options specified by 

i the. UVMS qualifier in the data file. is not specified, then the user 
is prompted for the option category. 

T 


START: 
O ALL_DONE 
ry ALL_DONE 


YSROOT:*" 
SROOT: (SYSEXE]' 
YSROOT : CSYSUPD 3" 


g&acovcVcvcv0o 
DBDDO D-ID DMMMMMsSe 
Ot be Gee gy Oe SF Oe ee SF 0 


1 + A ci removes entire options or sub-options 


$$0U 
MicroVMS kit. Help ney 5 be obtained for any of the prompts" 
SSOUTPUT *'by typing HELP. 


$0 hos HH HICMBCIOOM 
mmmmemyw mmo 


re 
OUTPUT ‘Valid options and sub-options are:"' 
WRIT YSSOuTPUT este 


' Get data file name 

FILENAME = P1 

IF FILENAME -EQS. ‘'"* THEN FILENAME = ‘'SYSSUPDATE:VMSKITBLD.DAT'' 
FILE = FILENAME 

Find the valid values for OPTIONS and SUB-OPTIONS from the data file. 


KINDA VALID = “/ALL BASE ,HELP, IGNORE" 


OPENTREAD reas FIL me 
ON ERROR THEN GOTO CLOSE 
ON CONTROL_Y THEN GOTO LOSE ADATA 


PAAAAAAPARAPAARAPAAPAAPAPRAPAAHAAPAHAAHGALAGH H HHH HHKHHMHKHHHHKHKHKVKVKVHKVHVYVVYVro 


VALID_REQUESTS: 
READ/END_OF FILE=NORMAL EXIT gPATAE RECORD 
IF FSEXTTO,T,RECORD) .EGS. ‘'S'' THEN GOTO END _V AL1D 
IF FSEXT(1,1 RECORD) NES. “‘e" THEN GOTO VALTD_RE Quests 
VALID = FSEXTCFSLOC(’'T® RECORD) +3,FS$LOC('' '',RECORD)-3,RECORD ee 
IF VALID .NES. PREV_ VALID THEN VALID_OP TION" = ="VALID_OPTION + VALID + 
IF VALID .NES. PREV-VALID THEN PREV ib ae 
IF VALID .NES. PREV— VALID THEN WRITE UF SOUTPUT »VALID 
PREV_VALID = VALID ~ 
VALIB_SUB = FSEXT(FSLOC('.",RECORD) + 1,1,RECORD) 
VALID- VALID’ = PREV SUB zy LID_S 
PREV_SUB = VALIO_‘VACID 
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ITE SYSSOUTPUT "* RECORD 
TO VALID OREQUESTS 


PHAM 


END_VAL 


ROR THEN GOTO ALL_DONE 
_ FONTROL. V,,THEN GOTO” ALL_DONE 
LIDZOPTION = VALID_OPTION + KINDA_VALID 


ONS = P2 
OPTIONS = OPTIONS 


OPTI 
SUB" OPT oneiyen := ALL _DONE 
REMOV NED_OP 540ns n.* 

ENT =P 

If wetented not specified then get options List 


ET_OPTION: 


oa 
Mae ~ee 


PTIONS .NES. ‘"* THEN GOTO VALIDATE_OPTION 
SYSSOUTPUT "* ** a 
MOV a OPTIONS .NES. ‘"* = 
TREN WRITE SYSS0UTPUT "Option(s) previously removed: "' Brtates pte es, 


$ 

SYSSOUTPUT ‘What Layered VMS option(s) do you want to remove. 

— OPTIONS orthen must be separated by commas, e.g., USER, iri. SYSsP"' 
OPTIONS = 

Goro" GET_OPTION 


' 
Extract and validate an option, update options List 
VALIDATE fle. 


RETURN := GET OPTION 
OPTION = OPTIONS 


PAHAPAHAAGHA PAHKPHAHAHARKHAPHAGPAPAAAAAESE 


X_OPTION: 
SLOCATE (OPTION, VALID_OPTION) 

TEMP_1-1,1, VALID OPTION) .NES. '',"") THEN GOTO BAD_OPTION 
EQ. CSLEMEINCVAC opt OPTION) THEN GOTO BAD_OPTION 
SEXTRAC D_OPTION) 
SEXTRACT(O, FsCo cotatet*) h Tene 


= 
Peextit 
EMP_1 


ee 
Sn 
a 
-_ 
Se 
—_ 
el 
o~ 
i 


s 
$s 
s 
S 
PTI 


Dob Seg 
“" _ 
t 
t 
a 


PONE 
“THEN OPT_RETURN := GET_OPTION 


en asthe + ** ** + OPTION 
Sia. OPTIONS = ‘"* 


Remove check = entire option or not 


ee eee ae ae 


IF FSLOC("","", OPTIONS) ~NE. FSLENCOPTIONS) THEN OPTION = FSEXT(O,FSLOC('’,"’, OPTIONS) ,OPTIONS) 


et 


tl 


H 
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< 


T 

- "‘WELP” [wee sore HELP_ENT_OPT 

GOTO CHECK 

T THEN GOTO" GET $B OPTION 

) you remove the entire ''OPTION' option (y/n)"’ 
HEN” Goro. ENT_OPTION 


Nopt 'D 


PRAAAAHMMMM 


i If not entire option then get sub-options List 


! 
1 
! 
GET_SUB_ OPTION: 
RETURN := GE 


PRHPHAAAPHFHOHENOS 
g 


TION 
THEN GOTO EX_SUB_OPT 


ous soe @ 
OS YSSOUTPUT “Sub-option(s) previously removed: ‘',REMOVED_SUB_OPTIONS,'”’ 


What sub-option(s) do you want removed for option " OPTION,*’.** 
opTs ns must be separated by commas, e.g., A,C.F" 


THEN GOTO GET_SUB_ OPTION 
HELP THEN GOTO HELP_SUB_OPTION 


i Extract and validate sub-option, update sub-options List 
a 


& 
% 
— 
_w 


Bererverraueen PROM 
os: cacece 

” 

> 

< 


o-< 
mtn 


UB_OPT : swe 
Oca EQS. te THEN GOTO ALL_DONE 
perstoc ey" ** SUBOPTS) .NE. FSLEN(SUBOPTS) THEN SUB_OPTION = FSEXT(O,FSLOC('',"', SUBOPTS) , SUBOPTS) 
VALIDATE SUB_OPTIONS: 
SOBOPTS = SUBOP Sus TORT ION o 0 
SUB_OPT meTURN = tpt R 
IF S .NES TREN’ he OPT_RETURN := GET_SUB_OPTION 
VALID_OPT = VALID_ "OPTION 
IF FSCOCATE(SUB_OPTION,V EQ. 
FSLERGTHCVAC ID ‘OPTS THEN GOTO BAD_SUB_OPTION 


TOTAL OPT = OPTION + *'*’ + SUB_OPTION 
REMOVED_SUB_OPTIONS = “REMOVED"SUB_OPTIONS + "' '' + SUB_OPTION 


PRM 


$ 
$ 
$s 
$ 
$ 
% 
$ 
$ 
$ 
& 
$ 
$ 
$ 


— 
- 


i Is the SEARCH utility installed? 


' 
' 
' 
CHECK_SEARCH 
SRCH = = FSSEARCH('" "DEFEXE' SEARCH. EXE"*) 


' 
i If search for search command successful, then use seerch command 
| on VMSKITBLD.DAT to create smaller file containing List of files 
to be deleted. 


T_SRCH: 
If $ ,EQS. °"’ THEN GOTO OPEN REC 
SEAR « ‘FILENAME’ NOVMSSALLS", 'UDRSS*T 


PRPFPPAARAARAPRHARHAPRHGP PMHCHS 
eenreoes re 


~e 


*TOTAL_OPT- 
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OUTPUT=" DEFUPD"UVOPTION. DAT 
Fit = '* *DEFUPD'UVOPTION. DAT’ 


This is the main loop that is executed for each record in the data file. 
If search command used then FILE opened is UVOPTION.DAT. If search 
command not used then FILE eoeneé. ee VMSKITBLD. DAT. 


Seem: 
Zz 


229s 


ECORD: 

OPEN/READ DATAF ‘FILE 

ERROR THEN GOTO CLOSE DATAF 
ZONTROLY THEN GOTO CCOSE_DATAF 


ND _OF ate Le aeroaD exit PATE RECORD 


PAR 


S$ 


See" 


EXTRACT! pe cone J .EQS. ‘'$'' THEN GOTO RECORD_LOOP 
ORD) “Eos: *t"* THEN GOTO RECORD_LOOP 
EXTRACT 17RECORD) -EQS. ‘,"* THEN GOTO RECORD_LOOP 


= de? pa a he ed ‘UVMS="",RECORD) +5,132,RECORD) 
MS .NES. THEN GOTO PARSE $ 
SYSSOUTPUT et - No OVMS qualifier on record: 
SYSSOUTPUT ‘'“""* *RECORD''"”* 
RECORD_LOOP 


aa 
Sad 


Nee Dr 


=§ 


yang 
SuaacHe aa 


_ 
; 
eee 
4 hae bee 
mmc 


ARSE_UVMS : 

UVMS = FSEXTRACT(O CFSLOCATE (“, ** UVMS)) ,UVMS) 
If ENT_OPT THEN TOTAL_OPT = UVMS 

SAVESET NAMES ay ti 

UVMS = FSEXTRACT(O CFSLOCATE (™""-UVMS)) 6 

IF FSLOCATE CUVRS, VALID 
WRITE SYSSOUTPUT ""ZWA ARRIING - a" nial Lid UVMS qualifier on record:' 
WRITE SYSSOUTPUT ‘“""* "RECO 

GOTO RECORD_LOOP 


Check if this file is in the option we are deleting. 
ECK_OP 


TION 
mat SAVESET NAME .EQS. ‘‘ALL"’ THEN GOTO GET_NAME 
IF SAVESET-NAME .NES. TOTAL_OPT THEN GOTO” RECORD_LOOP 


“$8 


n the record, and doesn't have a keyword associated wit 


ET_NAME : 
NAME = FSEXTRACT(O,FSLOCATE("',"", RECORD) ,RECORD) 


i Get the operation. 


ET_OPERATION 
OPERATION = rope Taare ocaret ‘op="* RECORD} SS, 132, RECORD) 
IF OPERATION .EQS. THEN GOT } 
OPERATION = Tedextaact (0, FSLOCATE (OPERATION) , OPERATION) 
GOTO ‘OPERAT 


at ean 
m 
= 


SOURCE_DEFAULT = "['' + ‘**NAME'''" @ "*)"* 
CREATE: 


OPTION) PSLENGTACVALID OPTION) THEN GOTO CHECK_OPTION 


t the name from the current record. (The name is olveys the first field 


eer FF 
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SENTER: 

SRENAME _C: 

SRENAME _B: 

SSYSGEN: 

$ GOTO RECORD_LOOP 

SBUILD: 

SCOPY: 

SNORMAL : 

SCONTIG: 

% IF FSSEARCH('** *DEFROOT'' ‘SOURCE DEFAULT** "NAME'**) -EQS. '"’ THEN GOTO RECORD_LOOP 
$ DELETE/LOG ‘DEFROOT'* SOURCE _DEFAULT' NAME’; * 

$ IF NAME .EQS. ‘’STARLET.OLB’ THEN LIBR/CREATE "DEFROOT'*SOURCE_DEFAULT* "NAME' 
: GOTO RECORD_LOOP 

$NO_DATAF : 

$ WRITE SYSSOUTPUT "' Unable to open data parameter file.’ 

: GOTO ALL_DONE 

SHELP_ENT_OPT: 

$ WRITE SYSSOUTPUT ‘"’ 

$ WRITE SYSSOUTPUT "‘Typing Y indicates you want the entire option” 

$ WRITE SYSSOUTPUT ‘'to be removed. Typing N indicates you want only"' 
$ WRITE SYSSOUTPUT ‘'portions of the option to be removed. The preset’ 
t WRITE SYSSOUTPUT ‘'for these sub_options follows if you type N.” 

$ WRITE SYSSOUTPUT 

$ ENT_OPT = ‘ 

& GOTO ENT_OPTION 

SBAD_OPTION: yt 

& WRITE SYSS$OUTPUT "* ' 

g WRITE SYSSOUTPUT ‘You specified an invalid option in: ‘',SAVE_OPTIONS,'”’ 
$ WRITE SYSSOUTPUT 

SHELP_OPTION: 

$ WRITE SYSSOUTPUT ‘"The valid options are: 

. WRITE SYSSOUTPU 

Rasen VALID = VALID_OPTION = KINDA_VALID 

$ TEMP = PERT CD FOL PCC." WALID) VALIO) * 

$ WRITE SYSSOUTPUT . , TEMP 

& VALID = VALID = TEMP = °°," 

$ IF VALID .NES. '*’ THEN GOTO BACK 

% OPTIONS = 7ae 

$ WRITE SYSSOUTPUT ; 

$ WRITE SYSSOUTPUT ‘‘Options must be separated by commas.’ 

$ WRITE SYSSOUTPUT 

$ GOTO "RETURN 

$BAD_SUB_ OPTION: eA 

3 QRITE SYSSOUTPUT ° me a 
$ WRITE SYSSOUTPUT ‘You specified an invalid sub-option in: »SAVE_SUBOPTS, 
SHELP_SUB_OPTION: ie 

$ WRITE SYSSOUTPUT * $ I 

& WRITE SYSSOUTPUT ‘"The valid sub-options for "’,OPTION,” are: 

$ WRITE SYSSOUTPUT 

$ IF SRCH .NES. °"* THEN GOTO SRCH_SUB_OPT_HELP 

$ OPEN/READ DATAF ‘FILENAME 

$ ON ERROR THEN GOTO CLOSE_DATAF 


~ 
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, ak all, CONTROL_Y THEN GOTO CLOSE_DATAF : 
£ READ/ Ena OF rit aia) FINISH PATAE RECORD tA 
a IF FS "1" THEN GOTO HELP. FINISH \ p 
$ IF FSEXTR { RECORD) NES ote 1H N GOTO HELP-READ } 

4 VALID = PSEC LOC("'!® " RECORD) LOC(''_"*, RECORD) -3, RECORD) ' § 
$ IF VALID . +h OPTION THEN WRITE SYSSOUTPUT@"” "RECORD : 0 
$ GOTO HELP_READ : 
SHELP_FINISH: DUM 
L CLOSE DATAF VAS 
t ON ERROR THEN GOTO ALL_DONE VMS 
& ON CONTROL_Y THEN GOTO” ALL_DONE F 
$ GOTO HELP CONT 

SSRCH_SUB_OPT_HELP: GB 


STRING z toreeee + "te ih + OPTION + _ + tomnme 
“ "FILENAME ‘STRING 


OURiTE SYSSOUTPUT ‘"' 
oe a "Sub-options must be separated by commas."' 


rw 
z 
nd 
~~ 


prey 
- 


DATAF 

ROR THEN GOTO ALL_DONE 

TROLAY THEN GOTO ALL DONE,, 

L_OPT .NES. (OPTION™+ ‘"*' + SUB_OPTION) - 
THEN TOTAL_OPT = OPTION 

$OUTPUT ' 


WRI 
WRI SOUTPUT ‘‘seeee = "', TOTAL_OPT,"’ REMOVED = *eeee"’ 
WRI YSSOUTPU 
GOTO "SUB_OPT_RETURN 
CLOSE at 
CLOSE DATAF 


ONE : 
om, FSSEARCH(""* *DEFUPD® UVOPTION.DAT'’) .NES. ‘"* THEN DELETE 'DEFUPD'UVOPTION.DAT;* 
ger DEFAULT ‘DEFDIR 


mmm 22 Dries 
= 
= 
wn 


See 
atone 
wn 


SOS QeLooeee PROM 
= 
iz 


ENT CORPORATION — 


{ BH-BTI3A-SE : PM 
| VAX/VMS V4.0 -AND PROPRIETARY 


